home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 7
/
FM Towns Free Software Collection 7.iso
/
data
/
nyan_e2
/
nyane2dt.plp
< prev
next >
Wrap
Text File
|
1993-11-30
|
4KB
|
160 lines
/********** 通信後に送信文書の保管を行う v1.04a用 **********/
%SetID{
var ID[10];
ID:=@getchar(IndexLine,14,8);
case(ID,
{GEG01261},{ ID:={氷面鏡}; },
{},{ ID:={}; },
{},{ ID:={}; },
);
im(ID);
};
%SaveMail{
%f @SetID|{.}|@day;
%mtf logd|{\mailtitl.$$$};
write(mtf,{SUB:}|@getchar(IndexLine,32,80)|
{TO:} |@getchar(IndexLine,14,8)|{\n});
mkdir(logd,{MAIL});
mergefile(mtf,logd|{\MAIL\}|f);
mergefile(file,logd|{\MAIL\}|f);
write(logd|{\MAIL\}|f,{\n(}|@daylong|{)\n\n});
footnote({});
};
%SaveBMail{
%f @SetID|{.}|@day;
mkdir(logd,{MAIL});
write(logd|{\MAIL\}|f,{SUB:}|@getchar(IndexLine,32,80)|
{TO:} |@getchar(IndexLine,14,8)|{\n}|
{(バイナリメール)\n\n});
footnote({});
};
%SavePCVAN{
%f @SetID|{.}|@day;
%mtf logd|{\mailtitl.$$$};
write(mtf,{SUB:}|@getchar(IndexLine,32,80)|
{TO:PCV>}|@getchar(IndexLine,14,8)|{\n});
mkdir(logd,{MAIL});
mergefile(mtf,logd|{\MAIL\}|f);
mergefile(file,logd|{\MAIL\}|f);
write(logd|{\MAIL\}|f,{\n(}|@daylong|{)\n\n});
footnote({});
};
%SaveFAX{
%DAY @daylong;
%f @getchar(DAY,3,2)|{_}|@getchar(DAY,6,2)|{_}|@getchar(DAY,9,2)|
{.FAX};
%mtf logd|{\mailtitl.$$$};
write(mtf,{TO:}|@getchar(IndexLine,32,80));
mkdir(logd,{MAIL});
mergefile(mtf,logd|{\MAIL\}|f);
mergefile(file,logd|{\MAIL\}|f);
write(logd|{\MAIL\}|f,{\n(}|@daylong|{)\n\n});
footnote({});
};
%SaveWPNC{
%DAY @daylong;
%f @head(@getchar(IndexLine,32,8),{@})|{.}|@day;
%mtf logd|{\mailtitl.$$$};
write(mtf,{TO:}|@head(@getchar(IndexLine,32,80),{\n})|{\n});
mkdir(logd,{MAIL});
mergefile(mtf,logd|{\MAIL\}|f);
mergefile(file,logd|{\MAIL\}|f);
write(logd|{\MAIL\}|f,{\n(}|@daylong|{)\n\n});
footnote({});
};
%POSTText{
var AnyWrite[3];
AnyWrite:={No};
delfile(SaveFName);
fopen(IndexFName);
loop({ IndexLine:=@fread;
case(@getchar(IndexLine,1,2),
{済},{
%file FNameTop|{MES}|
@head(@getchar(IndexLine,4,3),{ })|{.TXT};
case(@getchar(IndexLine,8,5),
{Mail },{
SaveMail;
},{BMail},{
SaveBMail;
delfile(file);
},{PCVAN},{
SavePCVAN;
},{FAX },{
SaveFAX;
},{WPNC },{
SaveWPNC;
},,{
write(SaveFName,IndexLine);
AnyWrite:={Yes};
});
im({Yes});
},,{
case(IndexLine<>{},{Yes},{
write(SaveFName,IndexLine);
AnyWrite:={Yes};
});
im(IndexLine<>{});
});
});
fclose;
case(AnyWrite,
{Yes},{copyfile(SaveFName,IndexFName)},
{No} ,{delfile(IndexFName)})
};
%DELOldText{
%WriAny{write(SaveFName,IndexLine);
AnyWrite:={Yes};
im({Yes});
};
var AnyWrite[3];
AnyWrite:={No};
delfile(SaveFName);
fopen(IndexFName);
loop({ IndexLine:=@fread;
case(@getchar(IndexLine,1,2),
{予},{WriAny;
},{説},{WriAny;
},{覧},{WriAny;
},{保},{WriAny;
},{誤},{IndexLine:={予}|@getchar(IndexLine,3,80);
WriAny;
},{済},{
%file FNameTop|{MES}|
@head(@getchar(IndexLine,4,3),{ })|{.TXT};
case(@getchar(IndexLine,8,5),
{Mail },{
SaveMail;
},{BMail},{
%fno @head(@getchar(IndexLine,4,3),{ });
SaveBMail;
delfile(file);
},{PCVAN},{
SavePCVAN;
},{FAX },{
SaveFAX;
},{WPNC },{
SaveWPNC;
}, ,{
%fno @head(@getchar(IndexLine,4,3),{ });
delfile(file);
});
im({Yes});
},,{im({No})
})
});
fclose;
case(AnyWrite,
{Yes},{copyfile(SaveFName,IndexFName)},
{No} ,{delfile(IndexFName)})
};
case(flag,{POST},{POSTText},{DEL},{DELOldText});